home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / programm / ds0045 / mbm_src.exe / WINDEMO.PAS < prev   
Pascal/Delphi Source File  |  1992-03-22  |  1KB  |  38 lines
  1. program windemo;
  2. {$S-}              {Vollversion 4.1 vom 22.03.1992}
  3.                    {(C) 1990-92 by Software-Entwicklung Uwe Kuhring}
  4.  
  5. uses drv_link,crt,graph,winlib,mouselib;
  6.  
  7. var dummy : char;
  8.     winny : integer;
  9.     x,y,n : integer;
  10.     n_str : string;
  11.  
  12. begin
  13. randomize;                             {Nicht immer das gleiche}
  14. enter_default_graphmode;               {Grafik einschalten}
  15. screen_save:=false;                    {Keine Hintergrund-Sicherung}
  16. n:=0;                                  {Kein Fenster offen}
  17. repeat
  18.    x:=random(76)+1 ; y:=random(22)+1;  {Zufalls-Fenster-Positionen}
  19.  
  20.    open_window(x,y,x+random(79-x),y+random(24-y),random(16),random(16),
  21.                winny,'MBM-Paket V4.1');    {Fenster öffnen lassen}
  22.    inc(n);                                 {und zählen}
  23.    str(n,n_str);                           {in String wandeln}
  24.  
  25.    wprint(winny,1,0,random(16),'Tastendruck = Demoende');
  26.                                        {Fenster-Meldung}
  27.  
  28.    wprint(winny,1,1,random(16),'Dies ist Fenster #'+n_str);
  29.                                        {Fenster-Nummer}
  30.  
  31.    close_window(winny);                {Gibt Fenster-Kennung wieder frei}
  32.                                        {Wegen screen_save keine Restau-}
  33.                                        {rierung des Hintergrundes}
  34.  
  35.    if keypressed then dummy:=readkey else dummy:=chr(255);
  36.    until dummy<>chr(255);
  37. closegraph;
  38. end.